home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 16
/
016.d81
/
file translator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
391b
|
13 lines
60100 rem file translator
60200 rem translates a seq file into a program file
60250 print"[147]":print:print
60300 input "filename";n$:open1,8,8,"0:"+n$
60500 get#1,c$:c$=chr$(asc(c$+chr$(0))and127):ifasc(c$)<>13then60500
60600 poke152,1:print"[147]";
60650 get#1,c$: c$=chr$(asc(c$+chr$(0))and127)
60651 ifc$=chr$(10)then60900
60700 printc$;:ifc$=chr$(13)then61000
60750 ifst=0then60650
60900 close1:print"finished":end
61000 ifst=0thenfori=631to633:pokei,13:next:poke198,3:print"goto60600";